home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n07.arc / KILLER.BAS < prev    next >
BASIC Source File  |  1990-03-16  |  988b  |  30 lines
  1. killer.bas
  2.  
  3.  
  4.  
  5. 100 DEFINT A-Z
  6. 110 ON ERROR GOTO 330
  7. 120 CLS:KEY OFF:COLOR 15,0
  8. 130 CLS:LOCATE 12,24:LINE INPUT"ENTER FILESPEC TO OBLITERATE ";FILESPEC$
  9. 140 OPEN"I",1,FILESPEC$:CLOSE           'Check to see that file exists
  10. 150 OPEN"R",1,FILESPEC$,128
  11. 160 SZ=INT(LOF(1)/128)+1
  12. 170 LOCATE 14,24:PRINT"ARE YOU SURE YOU WANT TO DO THIS? (Y/N) ";
  13. 180 A$=INKEY$:IF A$="" THEN 180
  14. 190 IF A$="Y" OR A$="y" THEN 220
  15. 200 IF A$="N" OR A$="n" THEN CLOSE:FILESPEC$="":GOTO 130
  16. 210 GOTO 180
  17. 220 LOCATE 14,64:PRINT "Y";
  18. 230 FIELD# 1,128 AS ZERO$
  19. 240 LSET ZERO$=STRING$(128,5)
  20. 250 FOR RN=SZ TO 1 STEP -1
  21. 260   PUT 1,RN
  22. 270   LOCATE 16,39:PRINT USING"#,###";RN;
  23. 280 NEXT RN
  24. 290 CLOSE :KILL FILESPEC$
  25. 300 LOCATE 18,33:PRINT "PRESS A KEY TO CONTINUE";
  26. 310 A$=INKEY$:IF A$="" THEN 310
  27. 320 LOCATE 20,42:PRINT"END":SYSTEM
  28. 330 IF ERL=140 AND ERR=53 THEN BEEP:BEEP:LOCATE 12,53:PRINT"file not found            ":FILESPEC$="":FOR X=1 TO 6000:NEXT X:RESUME 130
  29. 340 CLS:ON ERROR GOTO 0
  30.